home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / amiga-magazin / jahresinhalt_89_bis_96 / arexx / abox.rexx next >
OS/2 REXX Batch file  |  1996-01-21  |  877b  |  29 lines
  1. /* This AREXX program id a demo program
  2.     to be called when a box object is clicked in twist2 with the arguments
  3.     dbfilename rela_x rela_y shiftkeys
  4.     
  5.     GETDBFORMMODE returns a string RECORD, EDIT, LIST, QUERY or "" for the current file
  6.     GETDBFORMFIELD <fieldname> returns the field value as a string for the current record in the form/list
  7.     SETDBFORMFIELD <fieldname> <value> sets a new field value in the form and recalcs and redraws. Only in EDIT or QUERY mode. Stil buggy if value string is empty!!!!
  8.     
  9.     
  10.                    
  11.     Copyright (C) 1994 Mermaid Group
  12. */
  13.  
  14. ADDRESS twist
  15. PARSE ARG dbfilename,rela_x,rela_y,shiftkeys
  16. OPEN dbfilename
  17. options results
  18. GETDBFORMMODE
  19. if results != "EDIT" then EXIT
  20.  
  21. GETDBFORMFIELD "name"
  22. name_field = result
  23. newname_field = left("-----------------------------------------------",(rela_x%6-1)) || ">"
  24. SETDBFORMFIELD "name" newname_field
  25.  
  26. EXIT
  27.  
  28.  
  29.